Visual Basic Source Code/Visual Basic Source Code.iso/vbsource/othell1a/main.frm

Text File | 1998-11-11 | 31KB | 1,039 lines

VERSION 5.00
Object = "{248DD890-BB45-11CF-9ABC-0080C7E7B78D}#1.0#0"; "MSWINSCK.OCX"
Begin VB.Form Form1
   BackColor       =   &H8000000A&
   Caption         =   "Othello 1.0"
   ClientHeight    =   6210
   ClientLeft      =   60
   ClientTop       =   345
   ClientWidth     =   6975
   LinkTopic       =   "Form1"
   ScaleHeight     =   6210
   ScaleWidth      =   6975
   StartUpPosition =   2  'CenterScreen
   Begin VB.Timer Timer1
      Interval        =   1000
      Left            =   6240
      Top             =   5280
   End
   Begin MSWinsockLib.Winsock Winsock1
      Left            =   5520
      Top             =   5400
      _ExtentX        =   741
      _ExtentY        =   741
   End
   Begin VB.CommandButton Command3
      Caption         =   "&End"
      BeginProperty Font
         Name            =   "Arial"
         Size            =   9.75
         Charset         =   0
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   495
      Left            =   5280
      TabIndex        =   4
      Top             =   1920
      Width           =   1455
   End
   Begin VB.CommandButton Command2
      Caption         =   "&Config"
      BeginProperty Font
         Name            =   "Arial"
         Size            =   9.75
         Charset         =   0
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   495
      Left            =   5280
      TabIndex        =   2
      Top             =   720
      Width           =   1455
   End
   Begin VB.CommandButton Command4
      Caption         =   "Next Player"
      BeginProperty Font
         Name            =   "Arial"
         Size            =   9.75
         Charset         =   0
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   495
      Left            =   5280
      TabIndex        =   1
      Top             =   2760
      Width           =   1455
   End
   Begin VB.CommandButton Command1
      Caption         =   "&Start"
      BeginProperty Font
         Name            =   "Arial"
         Size            =   9.75
         Charset         =   0
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   495
      Left            =   5280
      TabIndex        =   0
      Top             =   1320
      Width           =   1455
   End
   Begin VB.Label status
      BeginProperty Font
         Name            =   "Arial"
         Size            =   9.75
         Charset         =   0
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   255
      Left            =   120
      TabIndex        =   9
      Top             =   5760
      Width           =   1695
   End
   Begin VB.Label swhite
      Alignment       =   2  'Center
      Caption         =   "2"
      BeginProperty Font
         Name            =   "Arial"
         Size            =   9.75
         Charset         =   0
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   255
      Left            =   5160
      TabIndex        =   8
      Top             =   3720
      Width           =   1695
   End
   Begin VB.Label lblBlack
      Alignment       =   2  'Center
      Caption         =   "Black"
      BeginProperty Font
         Name            =   "Arial"
         Size            =   9.75
         Charset         =   0
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   255
      Left            =   5160
      TabIndex        =   7
      Top             =   4200
      Width           =   1695
   End
   Begin VB.Label sblack
      Alignment       =   2  'Center
      Caption         =   "2"
      BeginProperty Font
         Name            =   "Arial"
         Size            =   9.75
         Charset         =   0
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   255
      Left            =   5160
      TabIndex        =   6
      Top             =   4440
      Width           =   1695
   End
   Begin VB.Label lblWhite
      Alignment       =   2  'Center
      Caption         =   "White"
      BeginProperty Font
         Name            =   "Arial"
         Size            =   9.75
         Charset         =   0
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   255
      Left            =   5160
      TabIndex        =   5
      Top             =   3480
      Width           =   1695
   End
   Begin VB.Image Image1
      BorderStyle     =   1  'Fixed Single
      Height          =   615
      Index           =   36
      Left            =   2040
      Top             =   3120
      Width           =   615
   End
   Begin VB.Image Image1
      BorderStyle     =   1  'Fixed Single
      Height          =   615
      Index           =   46
      Left            =   3240
      Top             =   3720
      Width           =   615
   End
   Begin VB.Label lblPlayer
      Alignment       =   2  'Center
      Caption         =   "PUSH START"
      BeginProperty Font
         Name            =   "Arial"
         Size            =   15.75
         Charset         =   0
         Weight          =   700
         Underline       =   0   'False
         Italic          =   -1  'True
         Strikethrough   =   0   'False
      EndProperty
      Height          =   375
      Left            =   0
      TabIndex        =   3
      Top             =   120
      Width           =   6975
   End
   Begin VB.Image Image1
      BorderStyle     =   1  'Fixed Single
      Height          =   615
      Index           =   64
      Left            =   4440
      Top             =   4920
      Width           =   615
   End
   Begin VB.Image Image1
      BorderStyle     =   1  'Fixed Single
      Height          =   615
      Index           =   63
      Left            =   3840
      Top             =   4920
      Width           =   615
   End
   Begin VB.Image Image1
      BorderStyle     =   1  'Fixed Single
      Height          =   615
      Index           =   62
      Left            =   3240
      Top             =   4920
      Width           =   615
   End
   Begin VB.Image Image1
      BorderStyle     =   1  'Fixed Single
      Height          =   615
      Index           =   61
      Left            =   2640
      Top             =   4920
      Width           =   615
   End
   Begin VB.Image Image1
      BorderStyle     =   1  'Fixed Single
      Height          =   615
      Index           =   60
      Left            =   2040
      Top             =   4920
      Width           =   615
   End
   Begin VB.Image Image1
      BorderStyle     =   1  'Fixed Single
      Height          =   615
      Index           =   59
      Left            =   1440
      Top             =   4920
      Width           =   615
   End
   Begin VB.Image Image1
      Borde